home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / tx072291.zip / TXINSURE.PRG < prev    next >
Text File  |  1991-07-22  |  3KB  |  73 lines

  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXINSURE.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit()
  12.  
  13. txhcfa15(1)                && CREATE HCFA1500 FORM TO MACRO #1
  14.                            && WE CREATE A MACRO TO SAVE DOWNLOADING
  15.                            && TIME BY ONLY DOWNLOADING IT ONCE THEN
  16.                            && USING THE TXOVERLAY() FUNCTION TO PRINT IT
  17.  
  18. txgraphic(01, 02, "texlogo.pcl", 2)  && CREATE LOGO MACRO #2
  19. txgraphic(55, 03, "signture.pcl", 3) && CREATE SIGNATURE MACRO #3
  20.  
  21. FOR I = 1 TO 3
  22.    txcour12r()             && SET FONT TO COURIER 12 POINT
  23.  
  24.    txcolprint(09, 02, .F., "Patient's Name "+STR(I))
  25.    txcolprint(09, 35, .F., "06/30/28")
  26.    txcolprint(09, 52, .F., "Insured's Name "+STR(I))
  27.    txcolprint(11, 02, .F., "Patient's Street Address")
  28.    txcolprint(11, 37, .F., "X")
  29.    txcolprint(12, 02, .F., "Patient's City/State/Zip Code")
  30.    txcolprint(15, 32, .F., "X")
  31.    txcolprint(18, 41, .F., "X")
  32.    txcolprint(24, 52, .F., "SIGNATURE ON FILE")
  33.    txcolprint(25, 07, .F., "SIGNATURE ON FILE")
  34.    txcolprint(25, 40, .F., DTOC(DATE()))
  35.    txcolprint(28, 35, .F., DTOC(DATE()))
  36.    txcolprint(31, 35, .F., "LIC#-G045623")
  37.    txcolprint(32, 07, .F., "PHYSICIAN'S NAME")
  38.    txcolprint(36, 03, .F., "162.9     MALIGNANT NEOPLASM - LUNG/BRONCHUS")
  39.    txcolprint(37, 03, .F., "197.7     MALIGNANT NEOPLASM - LIVER")
  40.    txcolprint(38, 03, .F., "558.10    ENTERITIS/COLITIS FROM RADIATION")
  41.    txcolprint(43, 14, .F., "4")
  42.    txcolprint(43, 18, .F., "9VBATT")
  43.    txcolprint(43, 27, .F., "9 VOLT BATTERY")
  44.    txcolprint(43, 48, .F., "1,2,3")
  45.    txcolprint(43, 55, .F., "0000000")
  46.    txcolprint(43, 64, .F., "2")
  47.    txcolprint(55, 55, .F., "9999999")
  48.    txcolprint(56, 37, .F., "X")
  49.    txcolprint(58, 05, .F., DTOC(DATE()))
  50.    txcolprint(60, 05, .F., "91-2010-PCA-4")
  51.  
  52.    txlnprt85()             && SET FONT TO LINE PRINTER 8.5 POINT
  53.    * Remember the Columns change to the columns per inch of the font
  54.    * In the case of LP85 the columns per inch is 16.67
  55.  
  56.    txcolprint(43, 02, .F., DTOC(DATE() - 14) + "  " + DTOC(DATE()))
  57.    txcolprint(57, 85, .F., "Childrens Hospital and HomeCare")
  58.    txcolprint(58, 85, .F., "9823 Pacific Heights Blvd., Ste. N")
  59.    txcolprint(59, 85, .F., "San Diego, CA  92121")
  60.  
  61.    txoverlay(1)            && PRINT HCFA1500 FROM MACRO #1
  62.    && SEE DOCUMENTATION FOR DIFFERENCE BETWEEN
  63.    && MACRO OVERLAY AND EXECUTE
  64.  
  65.    txmacexec(2)            && PRINT LOGO FROM MACRO #2
  66.    txmacexec(3)            && PRINT SIGNATURE FROM MACRO #3
  67.  
  68.    txpsource(0)            && PRINT CURRENT PAGE AND EJECT
  69. NEXT
  70.  
  71. txclear()
  72. *: EOF: TXINSURE.PRG
  73.